home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / b-block1.lha / boot-kick.S < prev    next >
Encoding:
Text File  |  1980-01-01  |  892 b   |  50 lines
  1. org    $60000
  2. load    $60000
  3.  
  4. DC.B    "DOS",0
  5. dc.l    $00000000
  6. dc.l    $00000370
  7.  
  8. move.w  #$0737,$dff180
  9. move.w  #$0737,$dff182
  10.  
  11. btst    #$6,$bfe001
  12. beq     ask2
  13. bra     boot
  14.  
  15. ask2:     
  16. btst    #$2,$dff016
  17. beq     kick
  18.  
  19. boot:
  20.  lea    dosname(pc),a1
  21.  jsr    -96(a6)    
  22.  move.l    d0,a0
  23.  move.l    22(a0),a0
  24.  moveq    #$00,d0
  25.  rts
  26.  
  27. dosname:dc.b "dos.library",0
  28.  
  29. KICK:
  30. move.l    $000004,A6
  31. jsr    -150(a6)         ; umschalten in supervisormod. 
  32. move.w  #$2700,sr        ; bits 13,10,9,8 im statusregister setzen
  33. move.w  #$2700,sr        
  34. move.w  #$7fff,$dff096   ; 0-14 in dmacon aus
  35. move.w  #$7fff,$dff09a   ; 0-14 in intena aus
  36. move.w  #$00ff,$dff180   
  37. move.w  #$00ff,$dff180
  38. lea     $3f000,a2 
  39. lea     $7fff0,a3
  40. gone:                    ; 
  41. clr.l   (a2)+
  42. cmpa.l  a3,a2
  43. bne.s   gone
  44. moveq   #$00,d0
  45. reset
  46. move.w  #$7fff,$dff096
  47. move.w  #$7fff,$dff09a
  48. jmp     (a1)
  49. dc.b  "       Written by  M.T.C. of The PANTIES      ",0,0 
  50.